00100	ARRAY D1(801),D2(905),D3(1020),D4(1125),D5(128),D6(45),D7(23),D8(18); 
00200	VARIABLE /R;
00300	NCHNS←4;SRATE←12500;SPEED←4;MAG←512/SRATE;
00400	REVINIT←1;R←0;
00500	COMPILE;
00600	INSTRUMENT REV;
00700	REV1(R,801,.827,D1);
00800	REV1(R,901,.805,D2);
00900	REV1(R,1011,.783,D3);
01000	REV1(R,1123,.764,D4);
01100	REV2(U1+U2+U3+U4,123,.7,D5);
01200	REV2(U5,43,.7,D6);
01300	REV2(U6,13,.7,D7);
01400	R←0;OUTA←OUTA+U7/4;
01500	OUTB←OUTB+U7/4;
01600	OUTC←OUTC+U7/4;
01700	OUTD←OUTD+U7/4;
01800	END;
01900	
02000	INSTRUMENT BOING;
02100	ZOSCIL(P4,MAG/P2,P5);
02200	ZOSCIL(1,MAG/P2,P6);
02300	COSCIL(MAG*P3,MAG/P9,P10);
02400	COSCIL(U1*(1-U2),MAG*P3+U3,P7);
02500	COSCIL(U1*U2,MAG*P3+U3,P8);
02600	COSCIL(1,MAG/P9,P11);
02700	COSCIL(1,MAG/P9,P12);
02800	COSCIL(1,MAG/P9,P13);
02900	COSCIL(1,MAG/P9,P14);
03000	COSCIL(U1*(1-U2),MAG*P3,P7);
03100	COSCIL(U1*U2,MAG*P3,P8);
03200	OUTA←OUTA+(U4+U5)*U6;
03300	OUTB←OUTB+(U4+U5)*U7;
03400	OUTC←OUTC+(U4+U5)*U8;
03500	OUTD←OUTD+(U4+U5)*U9;
03600	R←R+.1*(U6+U7+U8+U9)*(U10+U11)+.05*(U10+U11);
03700	END;
03800	FINISH;